home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / ONERR.DEMO.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  505 b   |  17 lines
  1. 5  REM  ONERR.DEMO
  2. 10 D$ =  CHR$(4): REM  CONTROL-D
  3. 20  ONERR  GOTO 100
  4. 30  INPUT "FILE TO RENAME? ";F$
  5. 40  INPUT "NEW NAME? ";N$
  6. 50  PRINT D$;"RENAME ";F$;",";N$
  7. 60  END 
  8. 100  IF  PEEK(222) < >10  THEN 200
  9. 110  INPUT "FILE IS LOCKED. RENAME ANYWAY? (Y/N) ";Y$
  10. 120  IF Y$ < >"Y"  AND Y$ < >"y"  THEN  END 
  11. 130  PRINT D$;"UNLOCK ";F$
  12. 140  PRINT D$;"RENAME ";F$;",";N$
  13. 150  PRINT D$;"LOCK ";N$
  14. 160  END 
  15. 200  PRINT "ERROR #"; PEEK(222);" DETECTED"
  16. 210  PRINT "AT LINE "; PEEK(218) + PEEK(219) *256
  17. 220  END